home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / glibc108.gz / glibc108 / glibc-1.08.1 / sunrpc / rpc_util.c < prev    next >
C/C++ Source or Header  |  1994-02-06  |  8KB  |  437 lines
  1. /* @(#)rpc_util.c    2.1 88/08/01 4.0 RPCSRC */
  2. /*
  3.  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
  4.  * unrestricted use provided that this legend is included on all tape
  5.  * media and as a part of the software program in whole or part.  Users
  6.  * may copy or modify Sun RPC without charge, but are not authorized
  7.  * to license or distribute it to anyone else except as part of a product or
  8.  * program developed by the user.
  9.  * 
  10.  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11.  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12.  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13.  * 
  14.  * Sun RPC is provided with no support and without any obligation on the
  15.  * part of Sun Microsystems, Inc. to assist in its use, correction,
  16.  * modification or enhancement.
  17.  * 
  18.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20.  * OR ANY PART THEREOF.
  21.  * 
  22.  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23.  * or profits or other special, indirect and consequential damages, even if
  24.  * Sun has been advised of the possibility of such damages.
  25.  * 
  26.  * Sun Microsystems, Inc.
  27.  * 2550 Garcia Avenue
  28.  * Mountain View, California  94043
  29.  */
  30. #ifndef lint
  31. static char sccsid[] = "@(#)rpc_util.c 1.5 87/06/24 (C) 1987 SMI";
  32. #endif
  33.  
  34. /*
  35.  * rpc_util.c, Utility routines for the RPC protocol compiler 
  36.  * Copyright (C) 1987, Sun Microsystems, Inc. 
  37.  */
  38. #include <stdio.h>
  39. #include "rpc_scan.h"
  40. #include "rpc_parse.h"
  41. #include "rpc_util.h"
  42.  
  43. char curline[MAXLINESIZE];    /* current read line */
  44. char *where = curline;    /* current point in line */
  45. int linenum = 0;    /* current line number */
  46.  
  47. char *infilename;    /* input filename */
  48.  
  49. #define NFILES 4
  50. char *outfiles[NFILES];    /* output file names */
  51. int nfiles;
  52.  
  53. FILE *fout;    /* file pointer of current output */
  54. FILE *fin;    /* file pointer of current input */
  55.  
  56. list *defined;    /* list of defined things */
  57.  
  58. /*
  59.  * Reinitialize the world 
  60.  */
  61. reinitialize()
  62. {
  63.     bzero(curline, MAXLINESIZE);
  64.     where = curline;
  65.     linenum = 0;
  66.     defined = NULL;
  67. }
  68.  
  69. /*
  70.  * string equality 
  71.  */
  72. streq(a, b)
  73.     char *a;
  74.     char *b;
  75. {
  76.     return (strcmp(a, b) == 0);
  77. }
  78.  
  79. /*
  80.  * find a value in a list 
  81.  */
  82. char *
  83. findval(lst, val, cmp)
  84.     list *lst;
  85.     char *val;
  86.     int (*cmp) ();
  87.  
  88. {
  89.     for (; lst != NULL; lst = lst->next) {
  90.         if ((*cmp) (lst->val, val)) {
  91.             return (lst->val);
  92.         }
  93.     }
  94.     return (NULL);
  95. }
  96.  
  97. /*
  98.  * store a value in a list 
  99.  */
  100. void
  101. storeval(lstp, val)
  102.     list **lstp;
  103.     char *val;
  104. {
  105.     list **l;
  106.     list *lst;
  107.  
  108.     for (l = lstp; *l != NULL; l = (list **) & (*l)->next);
  109.     lst = ALLOC(list);
  110.     lst->val = val;
  111.     lst->next = NULL;
  112.     *l = lst;
  113. }
  114.  
  115.  
  116. static
  117. findit(def, type)
  118.     definition *def;
  119.     char *type;
  120. {
  121.     return (streq(def->def_name, type));
  122. }
  123.  
  124.  
  125. static char *
  126. fixit(type, orig)
  127.     char *type;
  128.     char *orig;
  129. {
  130.     definition *def;
  131.  
  132.     def = (definition *) FINDVAL(defined, type, findit);
  133.     if (def == NULL || def->def_kind != DEF_TYPEDEF) {
  134.         return (orig);
  135.     }
  136.     switch (def->def.ty.rel) {
  137.     case REL_VECTOR:
  138.         return (def->def.ty.old_type);
  139.     case REL_ALIAS:
  140.         return (fixit(def->def.ty.old_type, orig));
  141.     default:
  142.         return (orig);
  143.     }
  144. }
  145.  
  146. char *
  147. fixtype(type)
  148.     char *type;
  149. {
  150.     return (fixit(type, type));
  151. }
  152.  
  153. char *
  154. stringfix(type)
  155.     char *type;
  156. {
  157.     if (streq(type, "string")) {
  158.         return ("wrapstring");
  159.     } else {
  160.         return (type);
  161.     }
  162. }
  163.  
  164. void
  165. ptype(prefix, type, follow)
  166.     char *prefix;
  167.     char *type;
  168.     int follow;
  169. {
  170.     if (prefix != NULL) {
  171.         if (streq(prefix, "enum")) {
  172.             f_print(fout, "enum ");
  173.         } else {
  174.             f_print(fout, "struct ");
  175.         }
  176.     }
  177.     if (streq(type, "bool")) {
  178.         f_print(fout, "bool_t ");
  179.     } else if (streq(type, "string")) {
  180.         f_print(fout, "char *");
  181.     } else {
  182.         f_print(fout, "%s ", follow ? fixtype(type) : type);
  183.     }
  184. }
  185.  
  186.  
  187. static
  188. typedefed(def, type)
  189.     definition *def;
  190.     char *type;
  191. {
  192.     if (def->def_kind != DEF_TYPEDEF || def->def.ty.old_prefix != NULL) {
  193.         return (0);
  194.     } else {
  195.         return (streq(def->def_name, type));
  196.     }
  197. }
  198.  
  199. isvectordef(type, rel)
  200.     char *type;
  201.     relation rel;
  202. {
  203.     definition *def;
  204.  
  205.     for (;;) {
  206.         switch (rel) {
  207.         case REL_VECTOR:
  208.             return (!streq(type, "string"));
  209.         case REL_ARRAY:
  210.             return (0);
  211.         case REL_POINTER:
  212.             return (0);
  213.         case REL_ALIAS:
  214.             def = (definition *) FINDVAL(defined, type, typedefed);
  215.             if (def == NULL) {
  216.                 return (0);
  217.             }
  218.             type = def->def.ty.old_type;
  219.             rel = def->def.ty.rel;
  220.         }
  221.     }
  222. }
  223.  
  224.  
  225. static char *
  226. locase(str)
  227.     char *str;
  228. {
  229.     char c;
  230.     static char buf[100];
  231.     char *p = buf;
  232.  
  233.     while (c = *str++) {
  234.         *p++ = (c >= 'A' && c <= 'Z') ? (c - 'A' + 'a') : c;
  235.     }
  236.     *p = 0;
  237.     return (buf);
  238. }
  239.  
  240.  
  241. void
  242. pvname(pname, vnum)
  243.     char *pname;
  244.     char *vnum;
  245. {
  246.     f_print(fout, "%s_%s", locase(pname), vnum);
  247. }
  248.  
  249.  
  250. /*
  251.  * print a useful (?) error message, and then die 
  252.  */
  253. void
  254. error(msg)
  255.     char *msg;
  256. {
  257.     printwhere();
  258.     f_print(stderr, "%s, line %d: ", infilename, linenum);
  259.     f_print(stderr, "%s\n", msg);
  260.     crash();
  261. }
  262.  
  263. /*
  264.  * Something went wrong, unlink any files that we may have created and then
  265.  * die. 
  266.  */
  267. crash()
  268. {
  269.     int i;
  270.  
  271.     for (i = 0; i < nfiles; i++) {
  272.         (void) unlink(outfiles[i]);
  273.     }
  274.     exit(1);
  275. }
  276.  
  277.  
  278. void
  279. record_open(file)
  280.     char *file;
  281. {
  282.     if (nfiles < NFILES) {
  283.         outfiles[nfiles++] = file;
  284.     } else {
  285.         f_print(stderr, "too many files!\n");
  286.         crash();
  287.     }
  288. }
  289.  
  290. static char expectbuf[100];
  291. static char *toktostr();
  292.  
  293. /*
  294.  * error, token encountered was not the expected one 
  295.  */
  296. void
  297. expected1(exp1)
  298.     tok_kind exp1;
  299. {
  300.     s_print(expectbuf, "expected '%s'",
  301.         toktostr(exp1));
  302.     error(expectbuf);
  303. }
  304.  
  305. /*
  306.  * error, token encountered was not one of two expected ones 
  307.  */
  308. void
  309. expected2(exp1, exp2)
  310.     tok_kind exp1, exp2;
  311. {
  312.     s_print(expectbuf, "expected '%s' or '%s'",
  313.         toktostr(exp1),
  314.         toktostr(exp2));
  315.     error(expectbuf);
  316. }
  317.  
  318. /*
  319.  * error, token encountered was not one of 3 expected ones 
  320.  */
  321. void
  322. expected3(exp1, exp2, exp3)
  323.     tok_kind exp1, exp2, exp3;
  324. {
  325.     s_print(expectbuf, "expected '%s', '%s' or '%s'",
  326.         toktostr(exp1),
  327.         toktostr(exp2),
  328.         toktostr(exp3));
  329.     error(expectbuf);
  330. }
  331.  
  332. void
  333. tabify(f, tab)
  334.     FILE *f;
  335.     int tab;
  336. {
  337.     while (tab--) {
  338.         (void) fputc('\t', f);
  339.     }
  340. }
  341.  
  342.  
  343.  
  344. static token tokstrings[] = {
  345.                  {TOK_IDENT, "identifier"},
  346.                  {TOK_CONST, "const"},
  347.                  {TOK_RPAREN, ")"},
  348.                  {TOK_LPAREN, "("},
  349.                  {TOK_RBRACE, "}"},
  350.                  {TOK_LBRACE, "{"},
  351.                  {TOK_LBRACKET, "["},
  352.                  {TOK_RBRACKET, "]"},
  353.                  {TOK_STAR, "*"},
  354.                  {TOK_COMMA, ","},
  355.                  {TOK_EQUAL, "="},
  356.                  {TOK_COLON, ":"},
  357.                  {TOK_SEMICOLON, ";"},
  358.                  {TOK_UNION, "union"},
  359.                  {TOK_STRUCT, "struct"},
  360.                  {TOK_SWITCH, "switch"},
  361.                  {TOK_CASE, "case"},
  362.                  {TOK_DEFAULT, "default"},
  363.                  {TOK_ENUM, "enum"},
  364.                  {TOK_TYPEDEF, "typedef"},
  365.                  {TOK_INT, "int"},
  366.                  {TOK_SHORT, "short"},
  367.                  {TOK_LONG, "long"},
  368.                  {TOK_UNSIGNED, "unsigned"},
  369.                  {TOK_DOUBLE, "double"},
  370.                  {TOK_FLOAT, "float"},
  371.                  {TOK_CHAR, "char"},
  372.                  {TOK_STRING, "string"},
  373.                  {TOK_OPAQUE, "opaque"},
  374.                  {TOK_BOOL, "bool"},
  375.                  {TOK_VOID, "void"},
  376.                  {TOK_PROGRAM, "program"},
  377.                  {TOK_VERSION, "version"},
  378.                  {TOK_EOF, "??????"}
  379. };
  380.  
  381. static char *
  382. toktostr(kind)
  383.     tok_kind kind;
  384. {
  385.     token *sp;
  386.  
  387.     for (sp = tokstrings; sp->kind != TOK_EOF && sp->kind != kind; sp++);
  388.     return (sp->str);
  389. }
  390.  
  391.  
  392.  
  393. static
  394. printbuf()
  395. {
  396.     char c;
  397.     int i;
  398.     int cnt;
  399.  
  400. #    define TABSIZE 4
  401.  
  402.     for (i = 0; c = curline[i]; i++) {
  403.         if (c == '\t') {
  404.             cnt = 8 - (i % TABSIZE);
  405.             c = ' ';
  406.         } else {
  407.             cnt = 1;
  408.         }
  409.         while (cnt--) {
  410.             (void) fputc(c, stderr);
  411.         }
  412.     }
  413. }
  414.  
  415.  
  416. static
  417. printwhere()
  418. {
  419.     int i;
  420.     char c;
  421.     int cnt;
  422.  
  423.     printbuf();
  424.     for (i = 0; i < where - curline; i++) {
  425.         c = curline[i];
  426.         if (c == '\t') {
  427.             cnt = 8 - (i % TABSIZE);
  428.         } else {
  429.             cnt = 1;
  430.         }
  431.         while (cnt--) {
  432.             (void) fputc('^', stderr);
  433.         }
  434.     }
  435.     (void) fputc('\n', stderr);
  436. }
  437.